// #########################################################################################
// Projeto:
// Modulo :
// Fonte  : schedsz2
// ---------+-------------------+-----------------------------------------------------------
// Data     | Autor             | Descricao
// ---------+-------------------+-----------------------------------------------------------
// 24/08/11 | Mateus M Paegle   | Criação da rotina
// ---------+-------------------+-----------------------------------------------------------

#include "rwmake.ch"

//------------------------------------------------------------------------------------------
/*/{Protheus.doc} novo
Rotina que sera agendada para rodar de tempos em tempos, vai varrer o SZ2 procurando o campo Z2_STATUS
com 0 para fazer a transmissão dos dados para a retaguarda

@author    Mateus M Paegle - TSC519
@version   1.xx
@since     24/08/2011
/*/
//------------------------------------------------------------------------------------------
user function schedsz2(_cempresa,_cfilial)
	
	Local   aEstSZ2
	Private oIncSZ2
	
	RpcSetType(3)
	RpcSetEnv(_cempresa,_cfilial)
	
	oIncSZ2 := WSSZ2INCLUSAO():NEW()
	aEstSZ2 := WSClassNew("SZ2INCLUSAO_ESTRUSZ2")
	
	SZ2->(dbsetorder(4)) //Z2_FILIAL+Z2_STATUS
	SZ2->(dbgotop())
	SZ2->(dbseek(xfilial("SZ2")+"0"))
	while(!SZ2->(eof()) .and. SZ2->Z2_STATUS=="0" .and. SZ2->Z2_FILIAL==xfilial("SZ2"))
		
		aEstSZ2:CSZ2_FILIAL  := SZ2->Z2_FILIAL
		aEstSZ2:CSZ2_COMANDA := SZ2->Z2_COMANDA
		aEstSZ2:CSZ2_HORA    := SZ2->Z2_HORA
		aEstSZ2:CSZ2_HRPAGO  := SZ2->Z2_HRPAGO
		aEstSZ2:CSZ2_ITEM    := SZ2->Z2_ITEM
		aEstSZ2:CSZ2_MESA    := SZ2->Z2_MESA
		aEstSZ2:CSZ2_MOTCANC := UPPER(SZ2->Z2_MOTCANC)
		aEstSZ2:CSZ2_PAGO    := SZ2->Z2_PAGO
		aEstSZ2:CSZ2_PRODUTO := SZ2->Z2_PRODUTO
		aEstSZ2:CSZ2_USER    := SZ2->Z2_USER
		aEstSZ2:DSZ2_DATA    := SZ2->Z2_DATA
		aEstSZ2:DSZ2_DTPAGO  := SZ2->Z2_DTPAGO
		aEstSZ2:NSZ2_QUANT   := SZ2->Z2_QUANT
		aEstSZ2:NSZ2_VLTOTAL := SZ2->Z2_VLTOTAL
		aEstSZ2:NSZ2_VLUNIT  := SZ2->Z2_VLUNIT
		aEstSZ2:CSZ2_PDV     := SZ2->Z2_PDV
		
		if oIncSZ2:INCSZ2("FSWM!R@NT35",aEstSZ2)
			reclock("SZ2",.f.)
				SZ2->Z2_STATUS := "1"
			msunlock("SZ2")
		else
			reclock("SZ2",.f.)
				SZ2->Z2_STATUS := "0"
			msunlock("SZ2")
		endif
		
		//SZ2->(dbskip())
		SZ2->(dbseek(xfilial("SZ2")+"0"))
	enddo
	
	RpcCloseEnv()
return
//--< fim de arquivo >----------------------------------------------------------------------
